home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 16 / AMIGAplus Sonderheft 16 (1998)(ICP)(DE)[!].iso / pd / anwendungen / madhouse / install&remove / remove < prev    next >
Text File  |  1997-12-30  |  2KB  |  87 lines
  1. ; Remove-Installer script for Madhouse V2.12
  2.  
  3. (complete 0)
  4.  
  5. (set #mainprgsource "Madhouse")
  6. (set #mainprgdest "SYS:WBStartup")
  7.  
  8. (if (= @language "deutsch") (
  9.     (set #intro
  10.     (cat "Madhouse wieder entfernen? Schade!\nBitte schreibt uns, wenn Ihr Kritik habt. "
  11.          "Wir wären Euch sehr dankbar.\n\nMit Proceed geht's dann los." ))
  12.     
  13.     (set #extro
  14.     (cat "Das war's dann!\n"))
  15.  
  16. ))
  17.  
  18.  
  19. (if (<> @language "deutsch") (
  20.     (set #intro
  21.     (cat "About to remove Madhouse, what a pity!\nPlease write us what you disliked! "
  22.          "Thankyou."))
  23.     
  24.     (set #extro
  25.     (cat "Okay, that was it!\n" ))
  26.  
  27. ))
  28.  
  29.  
  30. (message #intro)
  31.  
  32. (run (cat "Gettooltype " (tackon #mainprgdest "Madhouse") " CONFIGED") )
  33. (set #gtt (pathonly (getenv "Gettooltype")) )
  34. (delete "ENV:Gettooltype")
  35. (message #gtt)
  36.  
  37. (delete "LIBS:madblankersupport.library")
  38. (complete 5)
  39. (delete "ENV:Madhouse.prefs")
  40. (complete 10)
  41. (delete "ENVARC:Madhouse.prefs")
  42. (complete 15)
  43. (delete "SYS:WBStartup/Madhouse")
  44. (delete "SYS:WBStartup/Madhouse.info")
  45. (delete "SYS:WBStartup/WBStartup (Enabled)/Madhouse")
  46. (delete "SYS:WBStartup/WBStartup (Enabled)/Madhouse.info")
  47. (delete "SYS:WBStartup/WBStartup (Disabled)/Madhouse")
  48. (delete "SYS:WBStartup/WBStartup (Disabled)/Madhouse.info")
  49. (delete "SYS:Startup/Madhouse")
  50. (delete "SYS:Startup/Madhouse.info")
  51.  
  52. (complete 25)
  53. (if (> (/ (getversion) 65536) 37)
  54.     (
  55.         (if (<> @language "English" ) (
  56.             (delete "Locale:Catalogs/deutsch/madhouse.catalog")
  57.             (complete 60)
  58.             (delete "Locale:Catalogs/deutsch/madhousebg.catalog")
  59.         ))
  60.     )
  61. )
  62. (complete 30)
  63.  
  64. (delete (tackon #gtt "Anleitung.guide"))
  65. (delete (tackon #gtt "Anleitung.guide.info"))
  66. (delete (tackon #gtt "MadhouseD.guide"))
  67. (delete (tackon #gtt "MadhouseD.guide.info"))
  68. (delete (tackon #gtt "Doc.guide"))
  69. (delete (tackon #gtt "Doc.guide.info"))
  70. (delete (tackon #gtt "MadhouseE.guide"))
  71. (delete (tackon #gtt "MadhouseE.guide.info"))
  72. (delete (tackon #gtt "Registration_E.txt"))
  73. (delete (tackon #gtt "Registration_E.txt.info"))
  74. (delete (tackon #gtt "Registration_D.txt"))
  75. (delete (tackon #gtt "Registration_D.txt.info"))
  76.  
  77. (complete 40)
  78.  
  79. (run ("delete %s ALL" (tackon #gtt "Blankers")))
  80. (run ("delete %s ALL" (tackon #gtt "ImportHelp")))
  81.  
  82. (complete 100)
  83.  
  84. (message #extro)
  85.  
  86.  
  87.